home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Development / General / Bob 1.5 / t.bob < prev    next >
Text File  |  1993-10-02  |  213b  |  12 lines
  1. main()
  2. {
  3.     a = "ABCDabcd";
  4.     len = sizeof(a);
  5.     for (i = 0; i < len; ++i)
  6.     print(a[i],"\n");
  7.     for (i = 0; i < len; ++i)
  8.     if (a[i] >= 'a' && a[i] <= 'z')
  9.         a[i] = a[i] - 'a' + 'A';
  10.     print(a,"\n");
  11. }
  12.